home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sun Solutions 2000 #2
/
Sun Solutions CD (Volume 2 2000)(Special Focus - Java Technologies)(Disc 1).ISO
/
products
/
Software
/
SmartenItalia
/
smarten
/
roll_img.js
< prev
next >
Wrap
Text File
|
2000-02-13
|
1KB
|
53 lines
function cambia_multi()
{
lastarg = cambia_multi.arguments.length;
// alert(lastarg)
for(i=0; i<lastarg; i++)
{
cambia(cambia_multi.arguments[i])
}
}
function cambia(QUALE)
{
eval("quale = document.images."+QUALE)
srg = quale.src
e = srg.length - 1
ext = ""; spe=""; pre = ""
zona = 1; t=null
while(e >= 0)
{
if(zona==1)
{
if(srg.charAt(e) != "."){ext = srg.charAt(e) + ext}
else{zona=2}
}
if(zona==2)
{
if(srg.charAt(e-1) == "2"){spe=".";zona=3; t=2}
else{spe="_2."; zona=3; t=0}
}
if(zona==3){pre = srg.substring(0,e-t); break}
e--
}
quale.src = pre+spe+ext
}
function cambia_2(QUALE,imago)
{
eval("quale = document.images."+QUALE)
srg = quale.src
e = srg.length - 1
pre="";
zona = 1;
while(e >= 0)
{
if(zona==1 && srg.charAt(e) == "/"){zona=2}
if(zona==2){pre = srg.substring(0,e); break}
e--
}
quale.src = pre+"/"+imago
}